(list-directory): Set default-directory.

diff --git a/lisp/files.el b/lisp/files.el
index 73b9085ddf97d0245aa39c0562207df7a6fe5b3d..a71331bfcc41177de86eed72d4d17a8de980d573 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2341,6 +2341,7 @@ and `list-directory-verbose-switches'."
       (terpri)
       (save-excursion
        (set-buffer "*Directory*")
+       (setq default-directory (file-name-directory dirname))
        (let ((wildcard (not (file-directory-p dirname))))
          (insert-directory dirname switches wildcard (not wildcard)))))))